/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / term / bg-mouse.elc.z / bg-mouse.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 34 3a 34 39 20 31 | 39 39 38 0a 3b 3b 3b 20 |:54:49 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 74 65 72 6d |s-20.3/l|isp/term|
|000000a0| 2f 62 67 2d 6d 6f 75 73 | 65 2e 65 6c 0a 3b 3b 3b |/bg-mous|e.el.;;;|
|000000b0| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 32 | emacs v|ersion 2|
|000000c0| 30 2e 34 20 22 45 6d 65 | 72 61 6c 64 22 20 58 45 |0.4 "Eme|rald" XE|
|000000d0| 6d 61 63 73 20 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |macs  Lu|cid..;;;|
|000000e0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000f0| 6e 20 32 2e 32 35 20 58 | 45 6d 61 63 73 3b 20 32 |n 2.25 X|Emacs; 2|
|00000100| 32 2d 4d 61 72 2d 39 36 | 2e 0a 3b 3b 3b 20 6f 70 |2-Mar-96|..;;; op|
|00000110| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000120| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000130| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000140| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000150| 69 6e 20 45 6d 61 63 73 | 20 31 39 2e 0a 0a 28 69 |in Emacs| 19...(i|
|00000160| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000170| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000180| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000190| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|000001a0| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|000001b0| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|000001c0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001d0| 73 69 6f 6e 20 22 32 30 | 22 29 29 29 0a 20 20 20 |sion "20|"))).   |
|000001e0| 20 28 65 72 72 6f 72 20 | 22 60 62 67 2d 6d 6f 75 | (error |"`bg-mou|
|000001f0| 73 65 2e 65 6c 27 20 77 | 61 73 20 63 6f 6d 70 69 |se.el' w|as compi|
|00000200| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 20 32 30 |led for |Emacs 20|
|00000210| 22 29 29 0a 0a 28 6f 72 | 20 28 62 6f 75 6e 64 70 |"))..(or| (boundp|
|00000220| 20 27 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c | 'curren|t-load-l|
|00000230| 69 73 74 29 20 28 73 65 | 74 71 20 63 75 72 72 65 |ist) (se|tq curre|
|00000240| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 6e 69 6c |nt-load-|list nil|
|00000250| 29 29 0a 0a 0a 23 40 37 | 39 20 2a 4e 6f 6e 2d 6e |))...#@7|9 *Non-n|
|00000260| 69 6c 20 66 6f 72 20 6d | 6f 75 73 65 20 68 69 74 |il for m|ouse hit|
|00000270| 73 20 74 6f 20 73 65 6c | 65 63 74 20 6e 65 77 20 |s to sel|ect new |
|00000280| 77 69 6e 64 6f 77 2c 20 | 74 68 65 6e 20 65 78 65 |window, |then exe|
|00000290| 63 75 74 65 3b 20 65 6c | 73 65 20 6a 75 73 74 20 |cute; el|se just |
|000002a0| 73 65 6c 65 63 74 2e 1f | 0a 28 64 65 66 76 61 72 |select..|.(defvar|
|000002b0| 20 62 67 2d 6d 6f 75 73 | 65 2d 66 61 73 74 2d 73 | bg-mous|e-fast-s|
|000002c0| 65 6c 65 63 74 2d 77 69 | 6e 64 6f 77 20 6e 69 6c |elect-wi|ndow nil|
|000002d0| 20 28 23 24 20 2e 20 2d | 36 30 32 29 29 0a 28 62 | (#$ . -|602)).(b|
|000002e0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 11 c1 5c 6e 42 |yte-code| "...\nB|
|000002f0| 12 c3 14 c4 5c 6e 42 12 | c3 15 c5 5c 6e 42 12 c6 |....\nB.|...\nB..|
|00000300| 16 07 c7 5c 6e 42 12 c8 | 16 09 c9 5c 6e 42 12 ca |...\nB..|...\nB..|
|00000310| 16 0b cb 5c 6e 42 12 cc | 16 0d cd 5c 6e 42 12 ce |...\nB..|...\nB..|
|00000320| 16 0f cf 5c 6e 42 12 c0 | 87 22 20 5b 31 20 62 67 |...\nB..|." [1 bg|
|00000330| 2d 62 75 74 74 6f 6e 2d | 72 20 63 75 72 72 65 6e |-button-|r curren|
|00000340| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 32 20 62 67 |t-load-l|ist 2 bg|
|00000350| 2d 62 75 74 74 6f 6e 2d | 6d 20 62 67 2d 62 75 74 |-button-|m bg-but|
|00000360| 74 6f 6e 2d 63 20 34 20 | 62 67 2d 62 75 74 74 6f |ton-c 4 |bg-butto|
|00000370| 6e 2d 6c 20 38 20 62 67 | 2d 69 6e 2d 6d 6f 64 65 |n-l 8 bg|-in-mode|
|00000380| 6c 69 6e 65 20 31 36 20 | 62 67 2d 69 6e 2d 73 63 |line 16 |bg-in-sc|
|00000390| 72 6f 6c 6c 62 61 72 20 | 32 34 20 62 67 2d 69 6e |rollbar |24 bg-in|
|000003a0| 2d 6d 69 6e 69 62 75 66 | 20 3f 5c 3b 20 73 65 6d |-minibuf| ?\; sem|
|000003b0| 69 63 6f 6c 6f 6e 5d 20 | 32 29 0a 23 40 36 38 33 |icolon] |2).#@683|
|000003c0| 20 52 65 61 64 2c 20 70 | 61 72 73 65 2c 20 61 6e | Read, p|arse, an|
|000003d0| 64 20 65 78 65 63 75 74 | 65 20 61 20 42 42 4e 20 |d execut|e a BBN |
|000003e0| 42 69 74 47 72 61 70 68 | 20 6d 6f 75 73 65 20 63 |BitGraph| mouse c|
|000003f0| 6c 69 63 6b 2e 0a 0a 4c | 2d 2d 20 6d 6f 76 65 20 |lick...L|-- move |
|00000400| 70 6f 69 6e 74 20 20 20 | 20 20 20 20 20 20 20 20 |point   |        |
|00000410| 20 20 7c 20 54 68 65 73 | 65 20 61 70 70 6c 79 20 |  | Thes|e apply |
|00000420| 66 6f 72 20 6d 6f 75 73 | 65 20 63 6c 69 63 6b 20 |for mous|e click |
|00000430| 69 6e 20 61 20 77 69 6e | 64 6f 77 2e 0a 2d 2d 52 |in a win|dow..--R|
|00000440| 20 73 65 74 20 6d 61 72 | 6b 20 20 20 20 20 20 20 | set mar|k       |
|00000450| 20 20 20 20 20 20 20 20 | 7c 20 49 66 20 62 67 2d |        || If bg-|
|00000460| 6d 6f 75 73 65 2d 66 61 | 73 74 2d 73 65 6c 65 63 |mouse-fa|st-selec|
|00000470| 74 2d 77 69 6e 64 6f 77 | 20 69 73 20 6e 69 6c 2c |t-window| is nil,|
|00000480| 0a 4c 2d 52 20 6b 69 6c | 6c 20 72 65 67 69 6f 6e |.L-R kil|l region|
|00000490| 20 20 20 20 20 20 20 20 | 20 20 20 20 7c 20 74 68 |        |    | th|
|000004a0| 65 73 65 20 63 6f 6d 6d | 61 6e 64 73 20 6f 6e 20 |ese comm|ands on |
|000004b0| 61 20 6e 6f 6e 73 65 6c | 65 63 74 65 64 20 77 69 |a nonsel|ected wi|
|000004c0| 6e 64 6f 77 0a 2d 43 2d | 20 6d 6f 76 65 20 70 6f |ndow.-C-| move po|
|000004d0| 69 6e 74 20 61 6e 64 20 | 79 61 6e 6b 20 20 20 20 |int and |yank    |
|000004e0| 7c 20 6a 75 73 74 20 73 | 65 6c 65 63 74 20 74 68 || just s|elect th|
|000004f0| 61 74 20 77 69 6e 64 6f | 77 2e 0a 4c 43 2d 20 79 |at windo|w..LC- y|
|00000500| 61 6e 6b 2d 70 6f 70 09 | 09 20 20 20 7c 0a 2d 43 |ank-pop.|.   |.-C|
|00000510| 52 20 6f 72 20 4c 43 52 | 20 75 6e 64 6f 09 09 20 |R or LCR| undo.. |
|00000520| 20 20 7c 20 22 53 63 72 | 6f 6c 6c 20 62 61 72 22 |  | "Scr|oll bar"|
|00000530| 20 69 73 20 72 69 67 68 | 74 2d 68 61 6e 64 20 77 | is righ|t-hand w|
|00000540| 69 6e 64 6f 77 20 63 6f | 6c 75 6d 6e 2e 0a 0a 6f |indow co|lumn...o|
|00000550| 6e 20 6d 6f 64 65 6c 69 | 6e 65 3a 09 09 20 20 20 |n modeli|ne:..   |
|00000560| 20 6f 6e 20 22 73 63 72 | 6f 6c 6c 20 62 61 72 22 | on "scr|oll bar"|
|00000570| 3a 09 69 6e 20 6d 69 6e | 69 62 75 66 66 65 72 3a |:.in min|ibuffer:|
|00000580| 0a 4c 2d 2d 20 73 63 72 | 6f 6c 6c 2d 75 70 09 09 |.L-- scr|oll-up..|
|00000590| 20 20 20 20 6c 69 6e 65 | 20 74 6f 20 74 6f 70 09 |    line| to top.|
|000005a0| 09 65 78 65 63 75 74 65 | 2d 65 78 74 65 6e 64 65 |.execute|-extende|
|000005b0| 64 2d 63 6f 6d 6d 61 6e | 64 0a 2d 2d 52 20 73 63 |d-comman|d.--R sc|
|000005c0| 72 6f 6c 6c 2d 64 6f 77 | 6e 09 09 20 20 20 20 6c |roll-dow|n..    l|
|000005d0| 69 6e 65 20 74 6f 20 62 | 6f 74 74 6f 6d 09 65 76 |ine to b|ottom.ev|
|000005e0| 61 6c 2d 65 78 70 72 65 | 73 73 69 6f 6e 0a 2d 43 |al-expre|ssion.-C|
|000005f0| 2d 20 70 72 6f 70 6f 72 | 74 69 6f 6e 61 6c 20 67 |- propor|tional g|
|00000600| 6f 74 6f 2d 63 68 61 72 | 20 20 6c 69 6e 65 20 74 |oto-char|  line t|
|00000610| 6f 20 6d 69 64 64 6c 65 | 09 73 75 73 70 65 6e 64 |o middle|.suspend|
|00000620| 2d 65 6d 61 63 73 0a 0a | 54 6f 20 72 65 69 6e 69 |-emacs..|To reini|
|00000630| 74 69 61 6c 69 7a 65 20 | 74 68 65 20 6d 6f 75 73 |tialize |the mous|
|00000640| 65 20 69 66 20 74 68 65 | 20 74 65 72 6d 69 6e 61 |e if the| termina|
|00000650| 6c 20 69 73 20 72 65 73 | 65 74 2c 20 74 79 70 65 |l is res|et, type|
|00000660| 20 45 53 43 20 3a 20 52 | 45 54 1f 0a 28 64 65 66 | ESC : R|ET..(def|
|00000670| 61 6c 69 61 73 20 27 62 | 67 2d 6d 6f 75 73 65 2d |alias 'b|g-mouse-|
|00000680| 72 65 70 6f 72 74 20 23 | 5b 28 70 72 65 66 69 78 |report #|[(prefix|
|00000690| 2d 61 72 67 29 20 22 c0 | 09 21 88 c2 20 53 c0 09 |-arg) ".|.!.. S..|
|000006a0| 21 c3 a5 5e 1c c5 20 53 | c0 09 21 c6 a5 5a 1e 07 |!..^.. S|..!..Z..|
|000006b0| c0 c8 21 c9 a6 1e 5c 6e | cb 0c 0e 07 5c 22 1e 0c |..!...\n|....\"..|
|000006c0| cd 20 1e 0e cf 0e 0c 21 | 1e 10 0e 07 d1 20 53 55 |. .....!|..... SU|
|000006d0| 89 1e 12 3f ad 88 0e 07 | d3 0e 10 38 53 55 1e 14 |...?....|...8SU..|
|000006e0| 0e 12 3f ad 8c 0e 14 3f | ad 87 0c d5 0e 10 38 53 |..?....?|......8S|
|000006f0| 59 1e 16 0e 0c 0e 0e 61 | 1e 17 0e 12 ad 83 0e 0c |Y......a|........|
|00000700| 3f 89 1e 18 ab 84 0e 19 | aa 81 da 0e 14 ab 84 0e |?.......|........|
|00000710| 1b aa 81 da 5c 5c 0e 16 | ab 84 0e 1c aa 81 da 5c |....\\..|.......\|
|00000720| 5c 1e 1d de 0e 1f e0 0e | 1d 0e 5c 6e 5c 5c 21 5c |\.......|..\n\\!\|
|00000730| 22 1e 21 0c 0e 10 40 5a | 1e 5c 22 0e 07 0e 10 41 |".!...@Z|.\"....A|
|00000740| 40 5a 1e 23 0e 14 ac 84 | 0e 16 ab 90 e4 0e 0c 21 |@Z.#....|.......!|
|00000750| 88 e5 0e 21 21 88 e4 0e | 0e 21 aa 9b 0e 17 ac 84 |...!!...|.!......|
|00000760| 0e 18 ab 86 e5 0e 21 21 | aa 8d e4 0e 0c 21 88 0e |......!!|.....!..|
|00000770| 26 ad 84 e5 0e 21 21 2e | 0f 87 22 20 5b 62 67 2d |&....!!.|.." [bg-|
|00000780| 67 65 74 2d 74 74 79 2d | 6e 75 6d 20 73 65 6d 69 |get-tty-|num semi|
|00000790| 63 6f 6c 6f 6e 20 66 72 | 61 6d 65 2d 77 69 64 74 |colon fr|ame-widt|
|000007a0| 68 20 39 20 73 63 72 65 | 65 6e 2d 6d 6f 75 73 65 |h 9 scre|en-mouse|
|000007b0| 2d 78 20 66 72 61 6d 65 | 2d 68 65 69 67 68 74 20 |-x frame|-height |
|000007c0| 31 36 20 73 63 72 65 65 | 6e 2d 6d 6f 75 73 65 2d |16 scree|n-mouse-|
|000007d0| 79 20 3f 63 20 38 20 62 | 67 2d 6d 6f 75 73 65 2d |y ?c 8 b|g-mouse-|
|000007e0| 62 75 74 74 6f 6e 73 20 | 62 67 2d 77 69 6e 64 6f |buttons |bg-windo|
|000007f0| 77 2d 66 72 6f 6d 2d 78 | 2d 79 20 62 67 2d 6d 6f |w-from-x|-y bg-mo|
|00000800| 75 73 65 2d 77 69 6e 64 | 6f 77 20 73 65 6c 65 63 |use-wind|ow selec|
|00000810| 74 65 64 2d 77 69 6e 64 | 6f 77 20 62 67 2d 63 75 |ted-wind|ow bg-cu|
|00000820| 72 73 6f 72 2d 77 69 6e | 64 6f 77 20 77 69 6e 64 |rsor-win|dow wind|
|00000830| 6f 77 2d 65 64 67 65 73 | 20 65 64 67 65 73 20 73 |ow-edges| edges s|
|00000840| 63 72 65 65 6e 2d 68 65 | 69 67 68 74 20 6d 69 6e |creen-he|ight min|
|00000850| 69 62 75 66 2d 70 20 33 | 20 69 6e 2d 6d 6f 64 65 |ibuf-p 3| in-mode|
|00000860| 6c 69 6e 65 2d 70 20 32 | 20 69 6e 2d 73 63 72 6f |line-p 2| in-scro|
|00000870| 6c 6c 62 61 72 2d 70 20 | 73 61 6d 65 2d 77 69 6e |llbar-p |same-win|
|00000880| 64 6f 77 2d 70 20 69 6e | 2d 6d 69 6e 69 62 75 66 |dow-p in|-minibuf|
|00000890| 2d 70 20 62 67 2d 69 6e | 2d 6d 69 6e 69 62 75 66 |-p bg-in|-minibuf|
|000008a0| 20 30 20 62 67 2d 69 6e | 2d 6d 6f 64 65 6c 69 6e | 0 bg-in|-modelin|
|000008b0| 65 20 62 67 2d 69 6e 2d | 73 63 72 6f 6c 6c 62 61 |e bg-in-|scrollba|
|000008c0| 72 20 62 67 2d 6d 6f 64 | 65 2d 62 69 74 73 20 6c |r bg-mod|e-bits l|
|000008d0| 6f 6f 6b 75 70 2d 6b 65 | 79 20 6d 6f 75 73 65 2d |ookup-ke|y mouse-|
|000008e0| 6d 61 70 20 63 68 61 72 | 2d 74 6f 2d 73 74 72 69 |map char|-to-stri|
|000008f0| 6e 67 20 62 67 2d 63 6f | 6d 6d 61 6e 64 20 62 67 |ng bg-co|mmand bg|
|00000900| 2d 6d 6f 75 73 65 2d 78 | 20 62 67 2d 6d 6f 75 73 |-mouse-x| bg-mous|
|00000910| 65 2d 79 20 73 65 6c 65 | 63 74 2d 77 69 6e 64 6f |e-y sele|ct-windo|
|00000920| 77 20 62 67 2d 63 6f 6d | 6d 61 6e 64 2d 65 78 65 |w bg-com|mand-exe|
|00000930| 63 75 74 65 20 62 67 2d | 6d 6f 75 73 65 2d 66 61 |cute bg-|mouse-fa|
|00000940| 73 74 2d 73 65 6c 65 63 | 74 2d 77 69 6e 64 6f 77 |st-selec|t-window|
|00000950| 5d 20 36 20 28 23 24 20 | 2e 20 39 36 31 29 20 22 |] 6 (#$ |. 961) "|
|00000960| 50 22 5d 29 0a 23 40 34 | 33 20 4d 6f 76 65 20 70 |P"]).#@4|3 Move p|
|00000970| 6f 69 6e 74 20 74 6f 20 | 6c 6f 63 61 74 69 6f 6e |oint to |location|
|00000980| 20 6f 66 20 42 69 74 47 | 72 61 70 68 20 6d 6f 75 | of BitG|raph mou|
|00000990| 73 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |se...(de|falias '|
|000009a0| 62 67 2d 73 65 74 2d 70 | 6f 69 6e 74 20 23 5b 6e |bg-set-p|oint #[n|
|000009b0| 69 6c 20 22 c0 09 5c 6e | 5c 22 88 c3 14 09 89 15 |il "..\n|\"......|
|000009c0| 87 22 20 5b 62 67 2d 6d | 6f 76 65 2d 70 6f 69 6e |." [bg-m|ove-poin|
|000009d0| 74 2d 74 6f 2d 78 2d 79 | 20 62 67 2d 6d 6f 75 73 |t-to-x-y| bg-mous|
|000009e0| 65 2d 78 20 62 67 2d 6d | 6f 75 73 65 2d 79 20 6e |e-x bg-m|ouse-y n|
|000009f0| 65 78 74 2d 6c 69 6e 65 | 20 74 68 69 73 2d 63 6f |ext-line| this-co|
|00000a00| 6d 6d 61 6e 64 20 74 65 | 6d 70 6f 72 61 72 79 2d |mmand te|mporary-|
|00000a10| 67 6f 61 6c 2d 63 6f 6c | 75 6d 6e 5d 20 33 20 28 |goal-col|umn] 3 (|
|00000a20| 23 24 20 2e 20 32 34 31 | 30 29 20 6e 69 6c 5d 29 |#$ . 241|0) nil])|
|00000a30| 0a 23 40 34 31 20 53 65 | 74 20 6d 61 72 6b 20 61 |.#@41 Se|t mark a|
|00000a40| 74 20 6c 6f 63 61 74 69 | 6f 6e 20 6f 66 20 42 69 |t locati|on of Bi|
|00000a50| 74 47 72 61 70 68 20 6d | 6f 75 73 65 2e 1f 0a 28 |tGraph m|ouse...(|
|00000a60| 64 65 66 61 6c 69 61 73 | 20 27 62 67 2d 73 65 74 |defalias| 'bg-set|
|00000a70| 2d 6d 61 72 6b 20 23 5b | 6e 69 6c 20 22 c0 20 88 |-mark #[|nil ". .|
|00000a80| c1 5c 6e 0b 5c 22 88 c4 | 20 87 22 20 5b 70 75 73 |.\n.\"..| ." [pus|
|00000a90| 68 2d 6d 61 72 6b 20 62 | 67 2d 6d 6f 76 65 2d 70 |h-mark b|g-move-p|
|00000aa0| 6f 69 6e 74 2d 74 6f 2d | 78 2d 79 20 62 67 2d 6d |oint-to-|x-y bg-m|
|00000ab0| 6f 75 73 65 2d 78 20 62 | 67 2d 6d 6f 75 73 65 2d |ouse-x b|g-mouse-|
|00000ac0| 79 20 65 78 63 68 61 6e | 67 65 2d 70 6f 69 6e 74 |y exchan|ge-point|
|00000ad0| 2d 61 6e 64 2d 6d 61 72 | 6b 5d 20 33 20 28 23 24 |-and-mar|k] 3 (#$|
|00000ae0| 20 2e 20 32 36 31 34 29 | 20 6e 69 6c 5d 29 0a 23 | . 2614)| nil]).#|
|00000af0| 40 35 32 20 4d 6f 76 65 | 20 70 6f 69 6e 74 20 74 |@52 Move| point t|
|00000b00| 6f 20 6c 6f 63 61 74 69 | 6f 6e 20 6f 66 20 42 69 |o locati|on of Bi|
|00000b10| 74 47 72 61 70 68 20 6d | 6f 75 73 65 20 61 6e 64 |tGraph m|ouse and|
|00000b20| 20 79 61 6e 6b 2e 1f 0a | 28 64 65 66 61 6c 69 61 | yank...|(defalia|
|00000b30| 73 20 27 62 67 2d 79 61 | 6e 6b 20 23 5b 6e 69 6c |s 'bg-ya|nk #[nil|
|00000b40| 20 22 c0 09 5c 6e 5c 22 | 88 c3 14 c3 20 87 22 20 | "..\n\"|.... ." |
|00000b50| 5b 62 67 2d 6d 6f 76 65 | 2d 70 6f 69 6e 74 2d 74 |[bg-move|-point-t|
|00000b60| 6f 2d 78 2d 79 20 62 67 | 2d 6d 6f 75 73 65 2d 78 |o-x-y bg|-mouse-x|
|00000b70| 20 62 67 2d 6d 6f 75 73 | 65 2d 79 20 79 61 6e 6b | bg-mous|e-y yank|
|00000b80| 20 74 68 69 73 2d 63 6f | 6d 6d 61 6e 64 5d 20 33 | this-co|mmand] 3|
|00000b90| 20 28 23 24 20 2e 20 32 | 38 30 34 29 20 22 2a 22 | (#$ . 2|804) "*"|
|00000ba0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 79 61 |]).(defa|lias 'ya|
|00000bb0| 6e 6b 2d 70 6f 70 2d 31 | 20 23 5b 6e 69 6c 20 22 |nk-pop-1| #[nil "|
|00000bc0| c0 c1 21 87 22 20 5b 79 | 61 6e 6b 2d 70 6f 70 20 |..!." [y|ank-pop |
|00000bd0| 31 5d 20 32 20 6e 69 6c | 20 22 2a 22 5d 29 0a 23 |1] 2 nil| "*"]).#|
|00000be0| 40 39 36 20 4d 6f 76 65 | 20 70 6f 69 6e 74 20 74 |@96 Move| point t|
|00000bf0| 6f 20 6c 6f 63 61 74 69 | 6f 6e 20 6f 66 20 42 69 |o locati|on of Bi|
|00000c00| 74 47 72 61 70 68 20 6d | 6f 75 73 65 20 61 6e 64 |tGraph m|ouse and|
|00000c10| 20 79 61 6e 6b 2e 20 20 | 49 66 20 6c 61 73 74 20 | yank.  |If last |
|00000c20| 63 6f 6d 6d 61 6e 64 0a | 77 61 73 20 61 20 79 61 |command.|was a ya|
|00000c30| 6e 6b 2c 20 64 6f 20 61 | 20 79 61 6e 6b 2d 70 6f |nk, do a| yank-po|
|00000c40| 70 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 62 |p...(def|alias 'b|
|00000c50| 67 2d 79 61 6e 6b 2d 6f | 72 2d 70 6f 70 20 23 5b |g-yank-o|r-pop #[|
|00000c60| 6e 69 6c 20 22 08 c1 61 | ab 84 c2 c3 21 87 c4 20 |nil "..a|....!.. |
|00000c70| 87 22 20 5b 6c 61 73 74 | 2d 63 6f 6d 6d 61 6e 64 |." [last|-command|
|00000c80| 20 79 61 6e 6b 20 79 61 | 6e 6b 2d 70 6f 70 20 31 | yank ya|nk-pop 1|
|00000c90| 20 62 67 2d 79 61 6e 6b | 5d 20 32 20 28 23 24 20 | bg-yank|] 2 (#$ |
|00000ca0| 2e 20 33 30 34 34 29 20 | 22 2a 22 5d 29 0a 28 62 |. 3044) |"*"]).(b|
|00000cb0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 11 c1 5c 6e 42 |yte-code| "...\nB|
|00000cc0| 12 c0 87 22 20 5b 38 33 | 38 38 36 30 37 20 62 67 |..." [83|88607 bg|
|00000cd0| 2d 6d 6f 73 74 2d 70 6f | 73 69 74 69 76 65 2d 66 |-most-po|sitive-f|
|00000ce0| 69 78 6e 75 6d 20 63 75 | 72 72 65 6e 74 2d 6c 6f |ixnum cu|rrent-lo|
|00000cf0| 61 64 2d 6c 69 73 74 5d | 20 32 29 0a 23 40 31 33 |ad-list]| 2).#@13|
|00000d00| 34 20 47 6f 20 74 6f 20 | 6c 6f 63 61 74 69 6f 6e |4 Go to |location|
|00000d10| 20 69 6e 20 62 75 66 66 | 65 72 20 74 68 61 74 20 | in buff|er that |
|00000d20| 69 73 20 74 68 65 20 73 | 61 6d 65 20 70 65 72 63 |is the s|ame perc|
|00000d30| 65 6e 74 61 67 65 20 6f | 66 20 74 68 65 20 77 61 |entage o|f the wa|
|00000d40| 79 0a 74 68 72 6f 75 67 | 68 20 74 68 65 20 62 75 |y.throug|h the bu|
|00000d50| 66 66 65 72 20 61 73 20 | 74 68 65 20 42 69 74 47 |ffer as |the BitG|
|00000d60| 72 61 70 68 20 6d 6f 75 | 73 65 27 73 20 58 20 70 |raph mou|se's X p|
|00000d70| 6f 73 69 74 69 6f 6e 20 | 69 6e 20 74 68 65 20 77 |osition |in the w|
|00000d80| 69 6e 64 6f 77 2e 1f 0a | 28 64 65 66 61 6c 69 61 |indow...|(defalia|
|00000d90| 73 20 27 62 67 2d 6d 6f | 76 65 2d 62 79 2d 70 65 |s 'bg-mo|ve-by-pe|
|00000da0| 72 63 65 6e 74 61 67 65 | 20 23 5b 6e 69 6c 20 22 |rcentage| #[nil "|
|00000db0| 08 c1 55 ab 83 c1 aa 9a | c2 20 0b 08 a5 57 ab 8a |..U.....|. ...W..|
|00000dc0| 08 c2 20 5f c4 20 53 a5 | aa 88 c2 20 c4 20 53 a5 |.. _. S.|... . S.|
|00000dd0| 08 5f 62 88 c1 79 88 c5 | 20 87 22 20 5b 62 67 2d |._b..y..| ." [bg-|
|00000de0| 6d 6f 75 73 65 2d 78 20 | 30 20 62 75 66 66 65 72 |mouse-x |0 buffer|
|00000df0| 2d 73 69 7a 65 20 62 67 | 2d 6d 6f 73 74 2d 70 6f |-size bg|-most-po|
|00000e00| 73 69 74 69 76 65 2d 66 | 69 78 6e 75 6d 20 77 69 |sitive-f|ixnum wi|
|00000e10| 6e 64 6f 77 2d 77 69 64 | 74 68 20 77 68 61 74 2d |ndow-wid|th what-|
|00000e20| 63 75 72 73 6f 72 2d 70 | 6f 73 69 74 69 6f 6e 5d |cursor-p|osition]|
|00000e30| 20 33 20 28 23 24 20 2e | 20 33 33 33 30 29 20 6e | 3 (#$ .| 3330) n|
|00000e40| 69 6c 5d 29 0a 23 40 37 | 36 20 53 63 72 6f 6c 6c |il]).#@7|6 Scroll|
|00000e50| 20 74 68 65 20 6c 69 6e | 65 20 70 6f 69 6e 74 65 | the lin|e pointe|
|00000e60| 64 20 74 6f 20 62 79 20 | 74 68 65 20 42 69 74 47 |d to by |the BitG|
|00000e70| 72 61 70 68 20 6d 6f 75 | 73 65 20 74 6f 20 74 68 |raph mou|se to th|
|00000e80| 65 20 74 6f 70 20 6f 66 | 20 74 68 65 20 77 69 6e |e top of| the win|
|00000e90| 64 6f 77 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |dow...(d|efalias |
|00000ea0| 27 62 67 2d 6d 6f 75 73 | 65 2d 6c 69 6e 65 2d 74 |'bg-mous|e-line-t|
|00000eb0| 6f 2d 74 6f 70 20 23 5b | 6e 69 6c 20 22 c0 09 21 |o-top #[|nil "..!|
|00000ec0| 87 22 20 5b 73 63 72 6f | 6c 6c 2d 75 70 20 62 67 |." [scro|ll-up bg|
|00000ed0| 2d 6d 6f 75 73 65 2d 79 | 5d 20 32 20 28 23 24 20 |-mouse-y|] 2 (#$ |
|00000ee0| 2e 20 33 36 35 38 29 20 | 6e 69 6c 5d 29 0a 23 40 |. 3658) |nil]).#@|
|00000ef0| 37 39 20 53 63 72 6f 6c | 6c 20 74 68 65 20 6c 69 |79 Scrol|l the li|
|00000f00| 6e 65 20 70 6f 69 6e 74 | 65 64 20 74 6f 20 62 79 |ne point|ed to by|
|00000f10| 20 74 68 65 20 42 69 74 | 47 72 61 70 68 20 6d 6f | the Bit|Graph mo|
|00000f20| 75 73 65 20 74 6f 20 74 | 68 65 20 63 65 6e 74 65 |use to t|he cente|
|00000f30| 72 20 0a 6f 66 20 74 68 | 65 20 77 69 6e 64 6f 77 |r .of th|e window|
|00000f40| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 62 67 2d |..(defal|ias 'bg-|
|00000f50| 6d 6f 75 73 65 2d 6c 69 | 6e 65 2d 74 6f 2d 63 65 |mouse-li|ne-to-ce|
|00000f60| 6e 74 65 72 20 23 5b 6e | 69 6c 20 22 c0 09 89 5c |nter #[n|il "...\|
|00000f70| 5c c2 20 5b 5c 5c c3 5c | 5c c3 a5 21 87 22 20 5b |\. [\\.\|\..!." [|
|00000f80| 73 63 72 6f 6c 6c 2d 75 | 70 20 62 67 2d 6d 6f 75 |scroll-u|p bg-mou|
|00000f90| 73 65 2d 79 20 77 69 6e | 64 6f 77 2d 68 65 69 67 |se-y win|dow-heig|
|00000fa0| 68 74 20 32 5d 20 33 20 | 28 23 24 20 2e 20 33 38 |ht 2] 3 |(#$ . 38|
|00000fb0| 32 37 29 20 6e 69 6c 5d | 29 0a 23 40 37 30 20 53 |27) nil]|).#@70 S|
|00000fc0| 63 72 6f 6c 6c 20 74 68 | 65 20 6c 69 6e 65 20 70 |croll th|e line p|
|00000fd0| 6f 69 6e 74 65 64 20 74 | 6f 20 62 79 20 74 68 65 |ointed t|o by the|
|00000fe0| 20 6d 6f 75 73 65 20 74 | 6f 20 74 68 65 20 62 6f | mouse t|o the bo|
|00000ff0| 74 74 6f 6d 20 6f 66 20 | 74 68 65 20 77 69 6e 64 |ttom of |the wind|
|00001000| 6f 77 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ow...(de|falias '|
|00001010| 62 67 2d 6d 6f 75 73 65 | 2d 6c 69 6e 65 2d 74 6f |bg-mouse|-line-to|
|00001020| 2d 62 6f 74 74 6f 6d 20 | 23 5b 6e 69 6c 20 22 c0 |-bottom |#[nil ".|
|00001030| 09 c2 c3 20 5a 5c 5c 21 | 87 22 20 5b 73 63 72 6f |... Z\\!|." [scro|
|00001040| 6c 6c 2d 75 70 20 62 67 | 2d 6d 6f 75 73 65 2d 79 |ll-up bg|-mouse-y|
|00001050| 20 32 20 77 69 6e 64 6f | 77 2d 68 65 69 67 68 74 | 2 windo|w-height|
|00001060| 5d 20 34 20 28 23 24 20 | 2e 20 34 30 33 31 29 20 |] 4 (#$ |. 4031) |
|00001070| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00001080| 27 62 67 2d 6b 69 6c 6c | 2d 72 65 67 69 6f 6e 20 |'bg-kill|-region |
|00001090| 23 5b 6e 69 6c 20 22 c0 | c1 20 c2 20 5c 22 87 22 |#[nil ".|. . \"."|
|000010a0| 20 5b 6b 69 6c 6c 2d 72 | 65 67 69 6f 6e 20 72 65 | [kill-r|egion re|
|000010b0| 67 69 6f 6e 2d 62 65 67 | 69 6e 6e 69 6e 67 20 72 |gion-beg|inning r|
|000010c0| 65 67 69 6f 6e 2d 65 6e | 64 5d 20 33 20 6e 69 6c |egion-en|d] 3 nil|
|000010d0| 20 22 2a 22 5d 29 0a 23 | 40 31 34 34 20 49 6e 73 | "*"]).#|@144 Ins|
|000010e0| 65 72 74 20 61 20 63 6f | 70 79 20 6f 66 20 74 68 |ert a co|py of th|
|000010f0| 65 20 77 6f 72 64 20 28 | 61 63 74 75 61 6c 6c 79 |e word (|actually|
|00001100| 20 73 65 78 70 29 20 74 | 68 61 74 20 74 68 65 20 | sexp) t|hat the |
|00001110| 6d 6f 75 73 65 20 69 73 | 20 70 6f 69 6e 74 69 6e |mouse is| pointin|
|00001120| 67 20 61 74 2e 0a 53 65 | 78 70 20 69 73 20 69 6e |g at..Se|xp is in|
|00001130| 73 65 72 74 65 64 20 69 | 6e 74 6f 20 74 68 65 20 |serted i|nto the |
|00001140| 62 75 66 66 65 72 20 61 | 74 20 70 6f 69 6e 74 20 |buffer a|t point |
|00001150| 28 77 68 65 72 65 20 74 | 68 65 20 74 65 78 74 20 |(where t|he text |
|00001160| 63 75 72 73 6f 72 20 69 | 73 29 2e 1f 0a 28 64 65 |cursor i|s)...(de|
|00001170| 66 61 6c 69 61 73 20 27 | 62 67 2d 69 6e 73 65 72 |falias '|bg-inser|
|00001180| 74 2d 6d 6f 75 73 65 64 | 2d 73 65 78 70 20 23 5b |t-moused|-sexp #[|
|00001190| 6e 69 6c 20 22 8a c0 09 | 5c 6e 5c 22 88 c3 c4 21 |nil "...|\n\"...!|
|000011a0| ab 85 c5 75 88 aa 84 c6 | c5 21 88 8a c7 c5 21 88 |...u....|.!....!.|
|000011b0| 60 29 60 7b 29 1e 08 c9 | 0e 5c 6e 21 88 cb 20 88 |`)`{)...|.\n!.. .|
|000011c0| 6e ab 85 cc 20 88 aa 94 | 8a cd 75 88 c3 ce 21 3f |n... ...|..u...!?|
|000011d0| ad 83 c3 cf 21 29 ac 84 | d0 d1 21 88 d0 0e 08 21 |....!)..|..!....!|
|000011e0| 88 6c ae 94 c3 d2 21 ae | 8f c3 d3 21 ab 85 c3 d4 |.l....!.|...!....|
|000011f0| 21 ae 85 8a d0 d1 21 29 | 29 87 22 20 5b 62 67 2d |!.....!)|)." [bg-|
|00001200| 6d 6f 76 65 2d 70 6f 69 | 6e 74 2d 74 6f 2d 78 2d |move-poi|nt-to-x-|
|00001210| 79 20 62 67 2d 6d 6f 75 | 73 65 2d 78 20 62 67 2d |y bg-mou|se-x bg-|
|00001220| 6d 6f 75 73 65 2d 79 20 | 6c 6f 6f 6b 69 6e 67 2d |mouse-y |looking-|
|00001230| 61 74 20 22 5c 5c 73 29 | 22 20 31 20 66 6f 72 77 |at "\\s)|" 1 forw|
|00001240| 61 72 64 2d 73 65 78 70 | 20 62 61 63 6b 77 61 72 |ard-sexp| backwar|
|00001250| 64 2d 73 65 78 70 20 6d | 6f 75 73 65 64 2d 74 65 |d-sexp m|oused-te|
|00001260| 78 74 20 73 65 6c 65 63 | 74 2d 77 69 6e 64 6f 77 |xt selec|t-window|
|00001270| 20 62 67 2d 63 75 72 73 | 6f 72 2d 77 69 6e 64 6f | bg-curs|or-windo|
|00001280| 77 20 64 65 6c 65 74 65 | 2d 68 6f 72 69 7a 6f 6e |w delete|-horizon|
|00001290| 74 61 6c 2d 73 70 61 63 | 65 20 69 6e 64 65 6e 74 |tal-spac|e indent|
|000012a0| 2d 61 63 63 6f 72 64 69 | 6e 67 2d 74 6f 2d 6d 6f |-accordi|ng-to-mo|
|000012b0| 64 65 20 2d 31 20 22 5c | 5c 73 5c 22 22 20 22 5b |de -1 "\|\s\"" "[|
|000012c0| 60 27 5c 22 5c 5c 5d 5c | 5c 7c 5c 5c 73 28 22 20 |`'\"\\]\|\|\\s(" |
|000012d0| 69 6e 73 65 72 74 2d 73 | 74 72 69 6e 67 20 22 20 |insert-s|tring " |
|000012e0| 22 20 22 5c 5c 73 2e 5c | 5c 7c 5c 5c 73 29 22 20 |" "\\s.\|\|\\s)" |
|000012f0| 22 27 22 20 22 5c 5c 73 | 77 22 5d 20 33 20 28 23 |"'" "\\s|w"] 3 (#|
|00001300| 24 20 2e 20 34 33 31 37 | 29 20 6e 69 6c 5d 29 0a |$ . 4317|) nil]).|
|00001310| 23 40 31 35 36 20 52 65 | 61 64 20 66 72 6f 6d 20 |#@156 Re|ad from |
|00001320| 74 65 72 6d 69 6e 61 6c | 20 75 6e 74 69 6c 20 54 |terminal| until T|
|00001330| 45 52 4d 2d 43 48 41 52 | 20 69 73 20 72 65 61 64 |ERM-CHAR| is read|
|00001340| 2c 20 61 6e 64 20 72 65 | 74 75 72 6e 20 69 6e 74 |, and re|turn int|
|00001350| 65 72 76 65 6e 69 6e 67 | 20 6e 75 6d 62 65 72 2e |ervening| number.|
|00001360| 0a 49 66 20 6e 6f 6e 2d | 6e 75 6d 65 72 69 63 20 |.If non-|numeric |
|00001370| 6e 6f 74 20 6d 61 74 63 | 68 69 6e 67 20 54 45 52 |not matc|hing TER|
|00001380| 4d 2d 43 48 41 52 2c 20 | 72 65 70 72 6f 67 72 61 |M-CHAR, |reprogra|
|00001390| 6d 20 74 68 65 20 6d 6f | 75 73 65 20 61 6e 64 20 |m the mo|use and |
|000013a0| 73 69 67 6e 61 6c 20 61 | 6e 20 65 72 72 6f 72 2e |signal a|n error.|
|000013b0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 62 67 2d |..(defal|ias 'bg-|
|000013c0| 67 65 74 2d 74 74 79 2d | 6e 75 6d 20 23 5b 28 74 |get-tty-|num #[(t|
|000013d0| 65 72 6d 2d 63 68 61 72 | 29 20 22 c0 c1 20 c2 5a |erm-char|) ".. .Z|
|000013e0| 1b 1c 0b c0 59 ab 93 0b | c5 58 ab 8e 0c c6 5f 0b |....Y...|.X...._.|
|000013f0| 5c 5c 14 c1 20 c2 5a 89 | 13 aa 69 0e 07 0b c2 5c |\\.. .Z.|..i....\|
|00001400| 5c 61 ac 87 c8 20 88 c9 | ca 21 88 0c 2a 87 22 20 |\a... ..|.!..*." |
|00001410| 5b 30 20 72 65 61 64 2d | 63 68 61 72 20 34 38 20 |[0 read-|char 48 |
|00001420| 63 68 61 72 20 6e 75 6d | 20 39 20 31 30 20 74 65 |char num| 9 10 te|
|00001430| 72 6d 2d 63 68 61 72 20 | 62 67 2d 70 72 6f 67 72 |rm-char |bg-progr|
|00001440| 61 6d 2d 6d 6f 75 73 65 | 20 65 72 72 6f 72 20 22 |am-mouse| error "|
|00001450| 49 6e 76 61 6c 69 64 20 | 64 61 74 61 20 66 6f 72 |Invalid |data for|
|00001460| 6d 61 74 20 69 6e 20 62 | 67 2d 6d 6f 75 73 65 20 |mat in b|g-mouse |
|00001470| 63 6f 6d 6d 61 6e 64 3a | 20 6d 6f 75 73 65 20 72 |command:| mouse r|
|00001480| 65 69 6e 69 74 69 61 6c | 69 7a 65 64 2e 22 5d 20 |einitial|ized."] |
|00001490| 34 20 28 23 24 20 2e 20 | 34 38 38 36 29 5d 29 0a |4 (#$ . |4886)]).|
|000014a0| 23 40 39 35 20 50 6f 73 | 69 74 69 6f 6e 20 63 75 |#@95 Pos|ition cu|
|000014b0| 72 73 6f 72 20 69 6e 20 | 77 69 6e 64 6f 77 20 63 |rsor in |window c|
|000014c0| 6f 6f 72 64 69 6e 61 74 | 65 73 2e 0a 58 20 61 6e |oordinat|es..X an|
|000014d0| 64 20 59 20 61 72 65 20 | 30 2d 62 61 73 65 64 20 |d Y are |0-based |
|000014e0| 63 68 61 72 61 63 74 65 | 72 20 70 6f 73 69 74 69 |characte|r positi|
|000014f0| 6f 6e 73 20 69 6e 20 74 | 68 65 20 77 69 6e 64 6f |ons in t|he windo|
|00001500| 77 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 62 |w...(def|alias 'b|
|00001510| 67 2d 6d 6f 76 65 2d 70 | 6f 69 6e 74 2d 74 6f 2d |g-move-p|oint-to-|
|00001520| 78 2d 79 20 23 5b 28 78 | 20 79 29 20 22 c0 09 21 |x-y #[(x| y) "..!|
|00001530| 88 69 c2 20 1b 1c 0b c5 | 56 ab 83 0b 53 13 c6 0c |.i. ....|V...S...|
|00001540| 0b 5c 5c 0e 07 5c 5c 21 | 2a 87 22 20 5b 6d 6f 76 |.\\..\\!|*." [mov|
|00001550| 65 2d 74 6f 2d 77 69 6e | 64 6f 77 2d 6c 69 6e 65 |e-to-win|dow-line|
|00001560| 20 79 20 77 69 6e 64 6f | 77 2d 68 73 63 72 6f 6c | y windo|w-hscrol|
|00001570| 6c 20 73 63 72 6f 6c 6c | 2d 6f 66 66 73 65 74 20 |l scroll|-offset |
|00001580| 7a 65 72 6f 2d 63 6f 6c | 75 6d 6e 20 30 20 6d 6f |zero-col|umn 0 mo|
|00001590| 76 65 2d 74 6f 2d 63 6f | 6c 75 6d 6e 20 78 5d 20 |ve-to-co|lumn x] |
|000015a0| 33 20 28 23 24 20 2e 20 | 35 32 38 35 29 5d 29 0a |3 (#$ . |5285)]).|
|000015b0| 23 40 31 30 35 20 46 69 | 6e 64 20 77 69 6e 64 6f |#@105 Fi|nd windo|
|000015c0| 77 20 63 6f 72 72 65 73 | 70 6f 6e 64 69 6e 67 20 |w corres|ponding |
|000015d0| 74 6f 20 73 63 72 65 65 | 6e 20 63 6f 6f 72 64 69 |to scree|n coordi|
|000015e0| 6e 61 74 65 73 2e 0a 58 | 20 61 6e 64 20 59 20 61 |nates..X| and Y a|
|000015f0| 72 65 20 30 2d 62 61 73 | 65 64 20 63 68 61 72 61 |re 0-bas|ed chara|
|00001600| 63 74 65 72 20 70 6f 73 | 69 74 69 6f 6e 73 20 6f |cter pos|itions o|
|00001610| 6e 20 74 68 65 20 73 63 | 72 65 65 6e 2e 1f 0a 28 |n the sc|reen...(|
|00001620| 64 65 66 61 6c 69 61 73 | 20 27 62 67 2d 77 69 6e |defalias| 'bg-win|
|00001630| 64 6f 77 2d 66 72 6f 6d | 2d 78 2d 79 20 23 5b 28 |dow-from|-x-y #[(|
|00001640| 78 20 79 29 20 22 c0 20 | c1 1a 1b 5c 6e c4 20 61 |x y) ". |...\n. a|
|00001650| ac a7 0d 0b 41 40 57 ac | 96 0d c6 0b 38 59 ac 8f |....A@W.|....8Y..|
|00001660| 0e 07 0b 40 57 ac 88 0e | 07 c8 0b 38 59 ab 8a c9 |...@W...|...8Y...|
|00001670| 5c 6e 21 12 c0 5c 6e 21 | 13 aa 53 5c 6e c4 20 61 |\n!..\n!|..S\n. a|
|00001680| ab 83 c1 aa 88 5c 6e ac | 84 c4 20 aa 81 5c 6e 2a |.....\n.|.. ..\n*|
|00001690| 87 22 20 5b 77 69 6e 64 | 6f 77 2d 65 64 67 65 73 |." [wind|ow-edges|
|000016a0| 20 6e 69 6c 20 77 69 6e | 64 6f 77 20 65 64 67 65 | nil win|dow edge|
|000016b0| 73 20 73 65 6c 65 63 74 | 65 64 2d 77 69 6e 64 6f |s select|ed-windo|
|000016c0| 77 20 79 20 33 20 78 20 | 32 20 6e 65 78 74 2d 77 |w y 3 x |2 next-w|
|000016d0| 69 6e 64 6f 77 5d 20 33 | 20 28 23 24 20 2e 20 35 |indow] 3| (#$ . 5|
|000016e0| 35 35 38 29 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |558)]).(|defalias|
|000016f0| 20 27 62 67 2d 63 6f 6d | 6d 61 6e 64 2d 65 78 65 | 'bg-com|mand-exe|
|00001700| 63 75 74 65 20 23 5b 28 | 62 67 2d 63 6f 6d 6d 61 |cute #[(|bg-comma|
|00001710| 6e 64 29 20 22 c0 09 21 | ab 84 c2 09 21 87 c3 20 |nd) "..!|....!.. |
|00001720| 87 22 20 5b 63 6f 6d 6d | 61 6e 64 70 20 62 67 2d |." [comm|andp bg-|
|00001730| 63 6f 6d 6d 61 6e 64 20 | 63 6f 6d 6d 61 6e 64 2d |command |command-|
|00001740| 65 78 65 63 75 74 65 20 | 64 69 6e 67 5d 20 32 5d |execute |ding] 2]|
|00001750| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 62 67 2d |).(defal|ias 'bg-|
|00001760| 70 72 6f 67 72 61 6d 2d | 6d 6f 75 73 65 20 23 5b |program-|mouse #[|
|00001770| 6e 69 6c 20 22 c0 c1 21 | 87 22 20 5b 73 65 6e 64 |nil "..!|." [send|
|00001780| 2d 73 74 72 69 6e 67 2d | 74 6f 2d 74 65 72 6d 69 |-string-|to-termi|
|00001790| 6e 61 6c 20 22 1b 3a 30 | 3b 37 3b 3b 3b 33 36 30 |nal ".:0|;7;;;360|
|000017a0| 3b 35 31 32 3b 39 3b 31 | 36 3b 39 3b 31 36 63 22 |;512;9;1|6;9;16c"|
|000017b0| 5d 20 32 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |] 2]).(b|yte-code|
|000017c0| 20 22 c0 09 21 ac 83 c2 | 20 11 c0 87 22 20 5b 6b | "..!...| ..." [k|
|000017d0| 65 79 6d 61 70 70 20 6d | 6f 75 73 65 2d 6d 61 70 |eymapp m|ouse-map|
|000017e0| 20 6d 61 6b 65 2d 6b 65 | 79 6d 61 70 5d 20 32 29 | make-ke|ymap] 2)|
|000017f0| 0a 23 40 34 33 20 42 69 | 6e 64 20 62 67 2d 6d 6f |.#@43 Bi|nd bg-mo|
|00001800| 75 73 65 20 43 4c 49 43 | 4b 2d 43 4f 44 45 20 74 |use CLIC|K-CODE t|
|00001810| 6f 20 72 75 6e 20 46 55 | 4e 43 54 49 4f 4e 2e 1f |o run FU|NCTION..|
|00001820| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 62 69 6e 64 |.(defali|as 'bind|
|00001830| 2d 62 67 2d 6d 6f 75 73 | 65 2d 63 6c 69 63 6b 20 |-bg-mous|e-click |
|00001840| 23 5b 28 63 6c 69 63 6b | 2d 63 6f 64 65 20 66 75 |#[(click|-code fu|
|00001850| 6e 63 74 69 6f 6e 29 20 | 22 c0 09 c2 0b 21 0c 23 |nction) |"....!.#|
|00001860| 87 22 20 5b 64 65 66 69 | 6e 65 2d 6b 65 79 20 6d |." [defi|ne-key m|
|00001870| 6f 75 73 65 2d 6d 61 70 | 20 63 68 61 72 2d 74 6f |ouse-map| char-to|
|00001880| 2d 73 74 72 69 6e 67 20 | 63 6c 69 63 6b 2d 63 6f |-string |click-co|
|00001890| 64 65 20 66 75 6e 63 74 | 69 6f 6e 5d 20 34 20 28 |de funct|ion] 4 (|
|000018a0| 23 24 20 2e 20 36 31 33 | 34 29 5d 29 0a 28 62 79 |#$ . 613|4)]).(by|
|000018b0| 74 65 2d 63 6f 64 65 20 | 22 c0 09 c2 5c 22 88 c0 |te-code |"...\"..|
|000018c0| 0b c4 5c 22 88 c0 0d c6 | 5c 22 88 c0 09 0b 5c 5c |..\"....|\"....\\|
|000018d0| c7 5c 22 88 c0 09 0d 5c | 5c c8 5c 22 88 c0 0b 0d |.\"....\|\.\"....|
|000018e0| 5c 5c c9 5c 22 88 c0 09 | 0b 5c 5c 0d 5c 5c c9 5c |\\.\"...|.\\.\\.\|
|000018f0| 22 88 c0 0e 5c 6e 09 5c | 5c cb 5c 22 88 c0 0e 5c |"...\n.\|\.\"...\|
|00001900| 6e 0b 5c 5c cc 5c 22 88 | c0 0e 5c 6e 0d 5c 5c cd |n.\\.\".|..\n.\\.|
|00001910| 5c 22 88 c0 0e 0e 09 5c | 5c cf 5c 22 88 c0 0e 0e |\".....\|\.\"....|
|00001920| 0b 5c 5c d0 5c 22 88 c0 | 0e 0e 0d 5c 5c d1 5c 22 |.\\.\"..|...\\.\"|
|00001930| 88 c0 0e 12 09 5c 5c d3 | 5c 22 88 c0 0e 12 0b 5c |.....\\.|\".....\|
|00001940| 5c d4 5c 22 88 c0 0e 12 | 0d 5c 5c d5 5c 22 88 d6 |\.\"....|.\\.\"..|
|00001950| d7 21 87 22 20 5b 62 69 | 6e 64 2d 62 67 2d 6d 6f |.!." [bi|nd-bg-mo|
|00001960| 75 73 65 2d 63 6c 69 63 | 6b 20 62 67 2d 62 75 74 |use-clic|k bg-but|
|00001970| 74 6f 6e 2d 6c 20 62 67 | 2d 73 65 74 2d 70 6f 69 |ton-l bg|-set-poi|
|00001980| 6e 74 20 62 67 2d 62 75 | 74 74 6f 6e 2d 6d 20 62 |nt bg-bu|tton-m b|
|00001990| 67 2d 79 61 6e 6b 20 62 | 67 2d 62 75 74 74 6f 6e |g-yank b|g-button|
|000019a0| 2d 72 20 62 67 2d 73 65 | 74 2d 6d 61 72 6b 20 79 |-r bg-se|t-mark y|
|000019b0| 61 6e 6b 2d 70 6f 70 2d | 31 20 62 67 2d 6b 69 6c |ank-pop-|1 bg-kil|
|000019c0| 6c 2d 72 65 67 69 6f 6e | 20 75 6e 64 6f 20 62 67 |l-region| undo bg|
|000019d0| 2d 69 6e 2d 6d 6f 64 65 | 6c 69 6e 65 20 73 63 72 |-in-mode|line scr|
|000019e0| 6f 6c 6c 2d 75 70 20 62 | 67 2d 6d 6f 76 65 2d 62 |oll-up b|g-move-b|
|000019f0| 79 2d 70 65 72 63 65 6e | 74 61 67 65 20 73 63 72 |y-percen|tage scr|
|00001a00| 6f 6c 6c 2d 64 6f 77 6e | 20 62 67 2d 69 6e 2d 73 |oll-down| bg-in-s|
|00001a10| 63 72 6f 6c 6c 62 61 72 | 20 62 67 2d 6d 6f 75 73 |crollbar| bg-mous|
|00001a20| 65 2d 6c 69 6e 65 2d 74 | 6f 2d 74 6f 70 20 62 67 |e-line-t|o-top bg|
|00001a30| 2d 6d 6f 75 73 65 2d 6c | 69 6e 65 2d 74 6f 2d 63 |-mouse-l|ine-to-c|
|00001a40| 65 6e 74 65 72 20 62 67 | 2d 6d 6f 75 73 65 2d 6c |enter bg|-mouse-l|
|00001a50| 69 6e 65 2d 74 6f 2d 62 | 6f 74 74 6f 6d 20 62 67 |ine-to-b|ottom bg|
|00001a60| 2d 69 6e 2d 6d 69 6e 69 | 62 75 66 20 65 78 65 63 |-in-mini|buf exec|
|00001a70| 75 74 65 2d 65 78 74 65 | 6e 64 65 64 2d 63 6f 6d |ute-exte|nded-com|
|00001a80| 6d 61 6e 64 20 73 75 73 | 70 65 6e 64 2d 65 6d 61 |mand sus|pend-ema|
|00001a90| 63 73 20 65 76 61 6c 2d | 65 78 70 72 65 73 73 69 |cs eval-|expressi|
|00001aa0| 6f 6e 20 70 72 6f 76 69 | 64 65 20 62 67 2d 6d 6f |on provi|de bg-mo|
|00001ab0| 75 73 65 5d 20 33 29 0a |                         |use] 3).|        |
+--------+-------------------------+-------------------------+--------+--------+